home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_10_1986_Transactor_Publishing.d64 / header block (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  36 lines
  1. 10 rem* data loader for "header block"
  2. 11 rem* this puts the program directly
  3. 12 rem* into 1541 expansion ram at 0800
  4. 13 :
  5. 20 for i=1 to 175:read a:c=c+a:next
  6. 30 if c<>20663 then print"!data error!": end
  7. 40 hi=8:lo=0: rem 0800 in drive memory
  8. 50 restore: open 15,8,15
  9. 60 for i=1 to 175: read a
  10. 70 print#15,"m-w:"chr$(lo)chr$(hi)chr$(1)chr$(a)
  11. 80 lo=lo+1:if lo>255then lo=0:hi=hi+1
  12. 90 next i: close 15
  13. 100 :
  14. 1000 data  76, 160, 234, 173, 254,  19, 133,  24
  15. 1010 data 173, 255,  19, 133,  25, 169,   0,  69
  16. 1020 data  22,  69,  23,  69,  24,  69,  25, 133
  17. 1030 data  26,  32,  52, 249, 162,   0, 181,  36
  18. 1040 data 157,   0,  16, 232, 224,  10, 208, 246
  19. 1050 data 173, 254,  19, 133,   6, 174, 255,  19
  20. 1060 data 202, 134,   7, 169,   0, 133,  61, 133
  21. 1070 data  51, 133,  48, 169,   6, 133,  50, 169
  22. 1080 data   3, 133,  49,  32,  16, 245,  32,  86
  23. 1090 data 245,  80, 254, 184, 173,   1,  28, 145
  24. 1100 data  48, 200, 208, 245, 160, 186,  80, 254
  25. 1110 data 184, 173,   1,  28, 153,   0,   1, 200
  26. 1120 data 208, 244, 184,  80, 254, 184, 173,   1
  27. 1130 data  28, 201,  85, 240, 246, 173,  12,  28
  28. 1140 data  41,  31,   9, 192, 141,  12,  28, 169
  29. 1150 data 255, 141,   3,  28, 169, 255, 141,   1
  30. 1160 data  28, 162,   5,  80, 254, 184, 202, 208
  31. 1170 data 250, 162,   0,  80, 254, 184, 189,   0
  32. 1180 data  16, 141,   1,  28, 232, 224,  10, 208
  33. 1190 data 242, 162,   9,  80, 254, 184, 169,  85
  34. 1200 data 141,   1,  28, 202, 208, 245,  32,   0
  35. 1210 data 254, 169,   1,  76, 105, 249,  69
  36.